﻿Public Class DirectoryPMT_Builder
    Public Shared Function ReadXml(reader As Xml.XmlReader) As IDirectoryPMT
        Dim result As IDirectoryPMT
        Dim XmlDirectorySerialization As XElement = XElement.Load(reader)
        'Récupérer le nom complet du répertoire
        Dim FullName As String = XmlDirectorySerialization.<DirectoryPMT>.<FullName>.FirstOrDefault.Value
        If FullName = "-" Then
            result = New DirectoryPMT_NonRenseigne
        Else
            result = New DirectoryPMT(FullName)
        End If
        'Faire des tests pour voir si des changements ont été opérés sur Result depuis la dernière sauvegarde
        Return result
    End Function
End Class
